home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok85 / ampel / fampel.mod < prev    next >
Text File  |  1993-11-04  |  212b  |  16 lines
  1. MODULE FAmpel;
  2.  
  3. IMPORT
  4.   Ampel;
  5.  
  6. TYPE
  7.   FAmpel* = POINTER TO FAmpelDesc;
  8.   FAmpelDesc* = RECORD (Ampel.AmpelDesc) END;
  9.  
  10. PROCEDURE Init*(a: FAmpel);
  11. BEGIN
  12.   a.rot := TRUE; a.gruen := FALSE;
  13. END Init;
  14.  
  15. END FAmpel.
  16.